home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
dev
/
e
/
AmSp4E.lha
/
AmSp_Example4.e
< prev
next >
Wrap
Text File
|
1998-02-05
|
975b
|
35 lines
/******************************
******************************* Used:
** example 4 for AmosBobs.m **
** ** - mGetIBPalette
** Mouse as bobs. ** - mLoadIB
** ** - mEraseIB
** (C) 1999 By Krzys Cmok ** - mIB
*******************************
******************************/
MODULE '*amosbobs', /* open module for amos bobs */
'intuition/screens' /* open module for screens */
PROC main()
DEF databank,s:PTR TO screen /* definition of datas (databank) and screen (s) */
/* load willy.abk file */
IF (databank:=mLoadIB('willy.abk'))=0
WriteF('Can\at load willy.abk\n')
CleanUp()
ENDIF
s:=OpenS(320,200,4,0,'Example 4');
mGetIBPalette(databank,s) /* palette to screen */
REPEAT
mIB(s.rastport,databank,1,s.mousex,s.mousey,10); WaitTOF() /* now mouse! */
UNTIL Mouse()=1
CloseS(s)
mEraseIB(databank) /* clean memory */
ENDPROC